package HTML::Elemental::Select;

use Moose;
extends 'HTML::Elemental';



=head1 NAME

HTML::Elemental::Select - HTML select pulldown

=head1 SYNOPSIS

my $pulldown = HTML::Elemental::Select->new(id => 'fruit_choice');

my $fruits = $db->iquery('SELECT fruit_id, fruit_name FROM fruit');
for my $fruit ($fruits->hashes) {
    $pulldown->add( HTML::Elemental::Option->new(content => $fruit->{fruit_name}, value => $fruit->{fruit_id}) ) ;
}

1;
